﻿Public Class frmNhapHang

    Private Sub btnThemTenPhuTung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThemTenPhuTung.Click
        Dim frmThemPhuTung As New frmThemPhuTung
        frmThemPhuTung.ShowDialog()
    End Sub

    Private Sub txtSoLuong_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSoLuong.KeyPress
        If Not Char.IsControl(e.KeyChar) And Not Char.IsDigit(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub
End Class